home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / Laplace.lha / Laplace / Data / Projects.lha / LinA_Blatt13 < prev    next >
Encoding:
Text File  |  1996-07-22  |  611 b   |  43 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. M=[8/10,2/10;3/10,7/10]
  28. v0=[50,50]
  29. (M*M)*v0
  30. (M*M*M*M*M*M)*v0
  31. A=[1,3,0-1;0-1,2,4;0,1,1;2,0,1]
  32. Q1=[1,0,0;0,1,0;-1/5,0,1]
  33. Q2=[1,0,0;0,1,0;0,-1/5,1]
  34. Q3=[1,0,0;0,1,0;0,0,5/2]
  35. Q4=[1,0,0;0,1,-3;0,0,1]
  36. Q5=[1,0,0;1,1,0;0,0,1]
  37. Q6=[1,0,0;0,1/5,0;0,0,1]
  38. Q7=[1,0,1;0,1,0;0,0,1]
  39. Q8=[1,-3,0;0,1,0;0,0,1]
  40. Q=Q1*Q2*Q3*Q4*Q5*Q6*Q7*Q8
  41. Q*A
  42.  
  43.